home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol025 / math.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  2.8 KB  |  105 lines
  1. 10 CLS
  2. 20 KEY OFF
  3. 30 X=RND(1)
  4. 40 LOCATE 10,1:INPUT "HI THERE! MY NAME IS MATH WHIZ. WHAT'S YOUR NAME";N$
  5. 50 PRINT
  6. 60 PRINT "OK, ";N$;", LETS PLAY A NUMBERS GAME."
  7. 70 PRINT
  8. 80 INPUT "WOULD YOU LIKE INSTRUCTIONS (YES OR NO) ";Y$
  9. 90 IF LEFT$(Y$,1)="N" THEN 210
  10. 100 PRINT
  11. 110 PRINT "I WILL GIVE YOU ADDITION, SUBTRACTION, MULTIPLICATION, OR DIVISION PROBLEMS.  A LITTLE BIT OF EACH IF YOU LIKE."
  12. 120 PRINT
  13. 130 PRINT "SIMPLY"
  14. 140 PRINT "TYPE 1 FOR ADDITION"
  15. 150 PRINT "TYPE 2 FOR SUBTRACTION"
  16. 160 PRINT "TYPE 3 FOR MULTIPLICATION"
  17. 170 PRINT "TYPE 4 FOR DIVISION"
  18. 180 PRINT "TYPE 5 FOR  A LITTLE OF EACH OF THE ABOVE"
  19. 190 PRINT
  20. 200 PRINT "WHEN YOU ARE DONE PLAYING, TYPE 999 AFTER I GIVE YOU A PROBLEM AND I WILL GIVE  YOU YOUR SCORE. DON'T FORGET TO DEPRESS THE `RETURN' KEY AFTER EVERY ENTRY."
  21. 210 PRINT
  22. 220 INPUT "WHAT IS YOUR PLEASURE (1,2,3,4,5)";T
  23. 230 PRINT
  24. 240 INPUT "WHAT IS THE MAXIMUM VALUE I SHOULD GIVE FOR ONE NUMBER";N
  25. 250 PRINT
  26. 260 INPUT "WHAT IS THE MAXIMUM VALUE I SHOULD GIVE FOR THE OTHER NUMBER";P
  27. 270 PRINT
  28. 280 INPUT "TYPE ANY LETTER";R$
  29. 290 PRINT
  30. 300 FOR I=1 TO ASC(R$)
  31. 310 R1=RND(0)
  32. 320 NEXT I
  33. 330 IF T<5 THEN 360
  34. 340 G=1
  35. 350 T=INT(4*RND(0)+1)
  36. 360 A=A+1
  37. 370 X=INT((N+1)*RND(VAL(MID$(TIME$,4,2)))):IF X>N THEN 370
  38. 380 Y=INT((P+1)*RND(VAL(MID$(TIME$,4,2)))):IF Y>P THEN 380
  39. 390 ON T GOTO 400,440,520,560
  40. 400 REM   ADDITION
  41. 410 Z1=X+Y
  42. 420 PRINT A;".  ";X;"+";Y;"=";
  43. 430 GOTO 640
  44. 440 REM   SUBTRACTION
  45. 450 IF X>Y THEN 490
  46. 460 X1=Y
  47. 470 Y=X
  48. 480 X=X1
  49. 490 Z1=X-Y
  50. 500 PRINT A;".  ";X;"-";Y;"=";
  51. 510 GOTO 640
  52. 520  REM  MULTIPLICATION
  53. 530 Z1=X*Y
  54. 540 PRINT A;".  ";X;"X";Y;"=";
  55. 550 GOTO 640
  56. 560 REM   DIVISION
  57. 570 IF X>0 THEN 600
  58. 580 X=Y
  59. 590 Y=0
  60. 600 L=X*Y
  61. 610 Z1=Y
  62. 620 PRINT A;".  ";L;"/";X;"=";
  63. 630 REM  INPUT THE ANSWER PORTION OF THE PROGRAM
  64. 640 INPUT Z
  65. 650 IF Z=999 THEN 900
  66. 660 IF Z=Z1 THEN 770
  67. 670 R3=RND(0)
  68. 680 IF R3>.333 THEN 710
  69. 690 PRINT:PRINT "SORRY, TRY AGAIN ";N$:PRINT
  70. 700 GOTO 750
  71. 710 IF R3>.6670001 THEN 740
  72. 720 PRINT:PRINT "I KNOW YOU CAN DO BETTER THAN THAT!":PRINT
  73. 730 GOTO 750
  74. 740 PRINT:PRINT "CONCENTRATE!":PRINT
  75. 750 F=1
  76. 760 ON T GOTO 420,500,540,620
  77. 770 R2=RND(0)
  78. 780 IF R2>.333 THEN 810
  79. 790 PRINT:PRINT "CONGRATULATIONS, ";N$:PRINT
  80. 800 GOTO 850
  81. 810 IF R2> .6670001 THEN 840
  82. 820 PRINT:PRINT "VERY GOOD, ";N$:PRINT
  83. 830 GOTO 850
  84. 840 PRINT:PRINT "NICE GOING, ";N$:PRINT
  85. 850 IF F=1 THEN 870
  86. 860 B=B+1
  87. 870 F=0
  88. 880 IF G=1 THEN 350
  89. 890 GOTO 360
  90. 900 PRINT:PRINT "HOPE TO SEE YOU AGAIN SOMETIME, ";N$
  91. 910 A=A-1
  92. 920 C=A-B
  93. 930 D=INT(100*B/A)
  94. 940 PRINT:PRINT
  95. 950 PRINT"TOTAL NUMBER OF PROBLEMS ";A
  96. 960 PRINT
  97. 970 PRINT"TOTAL NUMBER CORRECT     ";B
  98. 980 PRINT
  99. 990 PRINT"TOTAL NUMBER WRONG       ";C
  100. 1000 PRINT
  101. 1010 PRINT"PERCENTAGE CORRECT       ";D;"%"
  102. 1020 END
  103.     ";B
  104. 980 PRINT
  105. 990 PRINT"TOTAL NU